Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_Grade CHAR := UPPER ( ' SEnterGrade ' ) ; 

3 BEGIN 

4 IF V_Grade = 'A' THEN 

5 DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Excellent G^il ' 

6 ELSE IF V_Grade = 'B ' THEN 

7 DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Very Go|>cfa^|(^ ) ; 

8 ELSE IF V Grade = 'C' THEN 




ood Grade 

DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Gooc* GradV ) ; 

’T.QF TF \T r.raHo = ' n ' TWTFM J, m, 

\ 



DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Fgbj J:, .Gr lde ' ) ; 
ELSE IF V_Grade = 'E ' THEN ^ 

DBMS_OUTPUT . PUT_LINE ( ' You are Awarded wi 



ELSE 



10 ELSE IF V_Grade = 'D' THEN 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 



i 



DBMS_OUTPUT.PUT_LINE ( 'Sorry! . . . No Suk^ + ^r 
END IF; ru* V +4 




Grade ' ) ; 
is Existing ' ) ; 



END IF; 

END IF; 

END IF; 

END IF; 

21* END; 

SQL> / 

Enter value for entergrad 
You are Awarded with Ex 




PL/SQL procedure s 



bnfaiJ 



c^Lafen^CT: ade 

completed. 



o 



SQL> ED 

Wrote file afied^bufnd 

1 DECLA RE - 

2 VjiM cIaR := UPPER ( ' SEnterGrade ' ) ; 

3 BE GIN + +T 

4 iF fcfcrade = 'A' THEN 

5 ^h^^2>UTPUT . PUT_LINE ( ' You are Awarded with Excellent Grade ' ) ; 

6 fELS'te’ V_Grade = 'B' THEN 

{- ( .Bfi«S_OUTPUT . PUT_LINE ( ' You are Awarded with Very Good Grade'); 
8 -ELSIF V_Grade = 'C' THEN 

/ru 9 rH DBMS_OUTPUT.PUT_LINE ( 'You are Awarded with Good Grade'); 
t r0 ELSIF V_Grade = 'D' THEN 

11 DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Fair Grade'); 

12 ELSIF V_Grade = 'E' THEN 

13 DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Poor Grade'); 
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14 ELSE 

15 DBMS_OUTPUT.PUT_LINE ( 'Sorry! .. .No Such Grade is Existing'); 

16 END IF; 

17* END; 

SQL> / 

Enter value for entergrade: A 

You are Awarded with Excellent Grade 

PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Grade CHAR := UPPER ( ' SEnterGrade ' ) 

3 BEGIN 

4 CASE V_Grade 

5 WHEN 'A' THEN 




— 



10 

11 

12 

13 

14 

15 

16 



DBMS_OUTPUT . PUT_LINE ( ' You are Awarded^ 
WHEN ' B ' THEN + + + + + + 






Hcellent Grade ' ) ; 

, vV 

DBMS_OUTPUT . PUT_LINE ( ' You are Award Very Good Grade'); 

'C' 

:put 

WHEN ' D ' THEN >• 

DBMS_OUTPUT . PUT_LINE ( ' You %$H}Awarded with Fair Grade'); 

WHEN 'E' THEN ^ 

DBMS_OUTPUT.PUT_LTNE ( '^ut^S^Awarded with Poor Grade'); 



WHEN 'C' THEN 

DBMS_OUTPUT . PUT_LINE ( ' You are 






wi th Good Grade ' ) ; 



ELSE 

DBMS_OUTPUT . PUT 
17 END CASE; 

18* END; 

SQL> / 

Enter value for en 
You are Awarded 



PL/SQL pro 



SQL> cl 




-LINE^l^o^yi/J' ! . . . No Such Grade is Existing ' ) ; 

cSt, 

th ^jrfcellent Grade 



ccessfully completed. 



SQL> DECT 

2 DATE := TO_DATE ( ' & YourDateOFBirth ' , ' DD-Month-YYYY ' ) ; 

VrWeekDay VARCHAR2 ( 1 ) ; 

4* Cj feEGIN 

5^ V_WeekDay : = TO_CHAR (V_DOB, ' D ' ) ; 



O 



6 CASE V_WeekDay 

7 WHEN ' 1 ' THEN 

8 DBMS_OUTPUT . PUT_LINE ( ' You Were Born on SUNDAY'); 

9 WHEN ' 2 ' THEN 
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10 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


MONDAY ' ) ; 


11 


WHEN 


' 3 ' THEN 












12 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


TUESDAY' ) ; 


13 


WHEN 


' 4 ' THEN 












14 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


WEDNESDAY ' ) ; 


15 


WHEN 


' 5 ' THEN 












16 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


THURSDAY ' ) ; 


17 


WHEN 


' 6 ' THEN 












18 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


FRIDAY' ) ; 


19 


WHEN 


' 7 ' THEN 












20 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


SATURDAY ' ) ; 


21 


ELSE 












1 


22 


DBMS_ 


.OUTPUT. PUT_LINE ( 


' You 


Were 


Born 


on 


UnKnown Day : 



23 END CASE; 

24 END; 

25 / 

Enter value for yourdateofbirth : 06-November-201j 
You Were Born on THURSDAY 

PL/SQL procedure successfully completed 

SQL> cl scr 






o 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_operator VARCHAR2 

3 V_Numberl NUMBER := 

V_Number2 NUMBER := 

BEGIN 

CASE V_Operat 

WHEN ' + ' THEWr^i 

8 DBMS_OUTPUT . PUi^INE ( ' The Sum of ' | |V_Numberl| | ' and 
' I |V_Number2 | | f : 

9 ' | | TQ^J®ffi^?WLv_Numberl + V_Number2 ) ) ; 

1 0 WHEN~+pjTHm 

11 DBMSOUtfUT . PUT_LINE ( ' The Difference of ' I I V_Numberl | | 

' | | Vj^unj 2 I I ' is : 

12 d\| W)£ nUMBER (V_Numberl - V_Number2) ) ; 

13 f TOEN ' * ' THEN 

HtTOMS_OUTPUT.PUT_LINE ( 'The Product of ' | | V_N umber 1 | | ' and 
I fvy iumber2 | | ' is : 

" f) '| | TO_NUMBER (V_Numberl * V_Number2)); 

6 WHEN ' / ' THEN 

17 DBMS_OUTPUT . PUT_LINE ( ' The Quotient of ' I I V_Numberl | | ' and 
' I I V_Number2 | | ' is : 

18 ' | | TO_NUMBER (V_Number 1 / V_Number2)); 



and 
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Please Check Your 



19 WHEN '**' THEN 

20 DBMS_OUTPUT . PUT_LINE ( ' The ' | |V_Numberl| | ' to the Power of 
' I I V_Number2 | | ' is : 

21 ' | | TO_NUMBER (V_Number 1 ** V_Number2)); 

22 ELSE 

23 DBMS_OUTPUT . PUT_LINE ( ' Invalid Operator. 

Self. 

24 END CASE; 

25* END; 

SQL> / 

Enter value for operator: + 

Enter value for operandl : 45 
Enter value for operand.2 : 55 
The Sum of 45 and 55 is : 

100 

PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Grade CHAR := UPPER ( H^SJi'rt^erGrade ' ) ; 

3 BEGIN 

4 CASE 




10 

11 

12 

13 

14 

15 

16 
17 



. ™ e % xr 

DBMS_OUTPUT.PUT_LIg^^^% Are Awarded with Excellent Grade ' ) ; 



WHEN V_Grade = 'AT 



WHEN V_Grade = '] 
DBMS_OUTPUT.PU] 

WHEN V Graa 




T^pN 

(Hlfou are Awarded with Very Good Grade'); 
THEN 



DBMS_OUTPUT . PW?TjNE ( ' You are Awarded with Good Grade ' ) ; 
WHEN V_Grade *r'D ' THEN 

DBMS_OUTI^l\pUT_LINE ( 'You are Awarded with Fair Grade'); 
WHE^%*Gmde = 'E ' THEN 

DBMS__u^fpiJr . TOT_LINE ( ' You are Awarded with Poor Grade ' ) ; 



ELSE 

+PbOoUTPUT . PUT_LINE ( ' Sorry ! ... No Such Grade is Existing' ) ; 

MW; 

18*1EN[\ 



^n^er value for entergrade : A 
VH )u are Awarded with Excellent Grade 

V Jp L/ SQL procedure successfully completed. 

SQL> ED 
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Wrote file afiedt.buf 



1 DECLARE 

2 V_operator VARCHAR2 (2) := 'SOperator'; 

3 V_Numberl NUMBER := SOperandl; 

4 V_Number2 NUMBER := &Operand2; 

5 BEGIN 

6 CASE 

7 WHEN V_Operator = '+' THEN 

8 DBMS_OUTPUT . PUT_LINE ( ' The Sum of ' 

| | V_Number2 | | ' is : ' | | TO_NUMBER (V_Numberl + 

9 WHEN V_Operator = THEN 

10 DBMS_OUTPUT . PUT_LINE ( ' The Difference of 

| | V_Number2 | | ' is : ' | | TO_NUMBER (V_Numberl - 

11 WHEN V_Operator = '*' THEN | ' + + + 

12 DBMS_OUTPUT . PUT_LINE ( ' The Product of ' I I V_N um fey 1 |~ ^ ' 

| | V_Number2 | | ' is : ' | | TO_NUMBER (V_Numberl * V_I|*to^2)); 



! | V_Number 1 | 
V_Number2) ) ; 

' I I V_Numbe 
V_Numb*r2 ) ) 




and 



THEN 
'The Quotient 



ofV, 



V* 



|f| xljWtftnberl | | 



13 WHEN V_Operator = '/' 

14 DBMS_OUTPUT . PUT_LINE ( „ __ , 

| | V_Number2 ! | ' is : ' | | TO_NUMBER ( V_Numbe ^ + vyfrumber2 ) ) ; 

15 WHEN V_Operator = ’**’ THEN *ir++ + + 4 

16 DBMS_OUTPUT . PUT_LINE ( 1 The Power &f ivfl ¥^Numberl | | ' and 

| | V_Number2 | | ' is : ' | | TO_NUMBER ( V_W»er , r* * V_Number2) ) ; 



and 



17 

18 

Self 
19 
20 * 

SQL> 

Enter value for 
Enter value for operan 
Enter value for op^and 
The Sum of 25 and 



ELSE 

DBMS_OUTPUT . PUT_LINE ( 
END CASE; 

END; . 

7 , 

operatorfV+ 



InvaVI^Operator. 

V7? 



Please Check Your 



fV 1 ' 



PL/SQL procedu 



SQL> cl sc r 
SQL> ^D 




completed. 



Wrot^^jWAf iedt . buf 



1 % 



Q 



A 









LARE 

V_Grade CHAR := UPPER ( 1 SEnterGrade 1 ) ; 

3~ V_Marks NUMBER (2) := &EnterMarks; 

4 BEGIN 

5 CASE 

6 WHEN V_Grade = 'A' THEN 

7 DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Excellent Grade') 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
39* 

SQL> 

Enter 



IF V_Marks >=75 AND V_Marks <= 100 THEN 

DBMS_OUTPUT . PUT_LINE ( ' You Achieved Distinction.'); 

ELS IF V_Marks >=70 AND V_Marks <75 THEN 

DBMS_OUTPUT . PUT_LINE ( ' You Do Not Have Distinction.'), 
END IF; 

WHEN V_Grade = 'B' THEN 

DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Very Good Grade 
IF V_Marks >= 65 AND V_Marks <70 THEN 

DBMS_OUTPUT . PUT_LINE ( ' You Achieved Higher First Cla 
ELS IF V_Marks >=59 AND V_Marks < 65 THEN 

DBMS_OUTPUT . PUT_LINE ( ' You Are Just First Class 
END IF; 4 

WHEN V_Grade = 'C' THEN 

DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Gooc* Gra 
IF V_Marks >= 50 AND V_Marks < 60 THEN | ^ 

DBMS_OUTPUT . PUT_LINE ( ' You Achieved Hicrh kA ^eV ond Clas 
ELS IF V_Marks >=4 5 AND V_Marks <50 THEN \ 

DBMS_OUTPUT . PUT_LINE ( ' You Are Just ^e ^>n%> Class. ') 

END IF; 

WHEN V_Grade = 'D' THEN 

DBMS_OUTPUT . PUT_LINE ( ' You are^ito^c^d with Fair Grade 
IF V_Marks >= 40 AND V_Marks < 44 M, + 

DBMS_OUTPUT.PUT_LINE ( ' YoifH»i|hiS^ed Higher Third Class 
ELS IF V_Marks >=35 AND V_Marks < %Q THEN 

DBMS_OUTPUT.PUT_LINEttJto^Are Just Third Class.'); 

END IF; 

WHEN V Grade = ': 




s • ' ) ; 






& 



') ; 

• ') ; 



END CASE; 
END; 

/ 

value for 



_L I NE ^Y^ +ajfe 

UT . Mt 



THEM 

Awarded 



DBMS_OUTPUT . 

ELSE .HK ^ 

DBMS_OUTPUT . EwJ ^NE ( ' Sorry ! ... No 



with Poor Grade') 



Such Grade is Existing'); 



ntergrade: A 
Enter value foj^. efctermarks : 85 
You are Awaj^ajc^rath Excellent 
You Achievecttfiiati'ction . 

PL/ SQl fflbedure 

f i 



Grade 



successfully completed. 



/ft , - : I 




SQL>fpEC)lkRE 
umber 
% f V_Result 
4*** BEGIN 
V Result 



NUMBER := SNumber; 
VARCHAR2 (30) ; 



:= CASE 
WHEN 

ELSE 



MOD (V_Number, 2) = 0 THEN 
V_Number | | 'is an Even Number' 
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9 V_Number | | 'is an Odd Number' 

10 END; 

11 DBMS_OUTPUT . PUT_LINE (V_Result) ; 

12 END; 

13 / 

Enter value for number: 8 
8 is an Even Number 

PL/SQL procedure successfully completed. 

SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_operator VARCHAR2 (2) := 'SOperator' 

3 V_Numberl NUMBER := SOperandl; 

4 V_Number2 NUMBER := &Operand2; 

5 V_Result VARCHAR2 (300) ; 

6 BEGIN 

7 V_Result := CASE 

8 WHEN V_Operator = 

9 ' The Sum of ' | | vj%umberl | | 




and ' | | V_Number2 | | ' is 



' | | TO_NUMBER (V_Numberl + V_NunHasfi^0 
WHEN V_Operato/i\ ' ^ 



is 



o* 



10 

n 

' | | V_Number2 | | 

12 

13 

' | | V_Number2 | | 

14 

15 

' | | V_Number2 | | 

16 . 

1 7 ' The Power of ' | | V_Number 1 | | ' and ' | | V_Number2 | | ' 

is : ' | | ToJa^MmIr (\f_N umber 1 * * V_Number2 ) 

is Emf 

19 VD^OUTPUT . PUT_LINE (V_Result ) ; 

20* 

E#fir\Rilue for operator : * 

^nl fey value for operandl : 25 
/Viter value for operand2 : 5 
Vrne Product of 25 and 5 is : 125 



-V THEN 

' The If^ft^EVeffce of ' | |V_Numberl| | ' and 
' | I TO g^M VERdV Numberl - V_Number2) 

WHEN V^pl^a^r' = ' * ' THEN 

' "Itjpoduct of ' | | V_Numberl | | ' and 
is : ' ^rfjBQ/jNtlMBER (V_Numberl * V_Number2 ) 

W^N^V^fcrator = '/' THEN 

Quotient of ' | | V_Numberl | | ' and 
NUMBER (V_Numberl / V_Number2) 

HEN V_Operator = '**' THEN 



PL/SQL procedure successfully completed. 
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SQL> cl scr 
SQL> / 

Enter value for operator: / 
Enter value for operandl : 125 
Enter value for operand2 : 4 
The Quotient of 125 and 4 is : 
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Enter value for operator: / 
Enter value for operandl : 0 
Enter value for operand2 : 45 



PL/SQL procedure successfully 



PL/SQL procedure successfully 



Enter value for operator: % 
Enter value for operandl : 35 
Enter value for operand2 : 45 



PL/SQL procedure successfully 



The Quotient of 0 and 45 is : 



SQL> / 



SQL> / 





4 V_Number2 NUMBER := &0p 

5 V_Result VARCHAR2 (300) ; 

6 BEGIN 
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7 IF V_Operator IN ( ' / ' , '%') AND (V_Number2 = 0 OR V_Number2 IS NULL) 

THEN 

8 DBMS_OUTPUT.PUT_LINE ( 'Sorry! Division Cannot Be Continued 
With Denominator As Zero OR NULL. '); 

9 ELSE 

10 V_Result := CASE 

11 WHEN V_Operator = '+' THEN 

12 'The Sum of ' | | V_Numberl | | ' and ' | | V_Number2 | | ' is 
' | | TO_NUMBER (V_Numberl + V_Number2) 

13 WHEN V_Operator = '-' THEN 

14 'The Difference of ' | |V_Numberl | | ' and ' | |V_Numbe 
' | | TO_NUMBER (V_Numberl - V_Number2) 

15 WHEN V_Operator = '*' THEN 

16 'The Product of ' | |V_Numberl | | ' and ' | | V_Nui*ber 
' | | TO_NUMBER ( V_Number 1 * V_Number2) 

17 WHEN V_Operator = '/' THEN 

1 8 ' The Quotient of ' | |V_Numberl| | ' and ' | er2 | | ' is 

' | | TO_NUMBER (V_Numberl / V_Number2) ^ 

19 WHEN V_Operator = '**' THEN + + fAJ+x' 

20 'The Power of ' | |V_Numberl| ! ' ancf+ + ' 

' | | TO_NUMBER ( V_Number 1 ** V_Number2) jJ-u + -t- + 

21 WHEN V_Operator = '%' THEN \ IfT - 4 





Iumber2 | | ' is 



d 



22 'The Modulus of ' | | V_N umb e rlH-tfcf. aHtf" ' | | V_Number2 | | 
' | | TO_NUMBER (MOD (V_Number 1 , V_Number2 ) )\ 

23 END; 

2 4 END IF; A * 

25 DBMS_OUTPUT . PUT_LINE 
2 6* END; * - V - ^ 

sql> / 

Enter value for operator#*/ % 

Enter value for operan^tfj^ . 

Enter value for opy^nd j : p 4 

The Quotient of 2 5 TBtti is : 6.25 

a ++ 

PL/SQL procedu^ -Successfully completed. 

SQL> / 

Enter va lue f o<jr operator : % 

Enteuwvsfij^ . f or operandl : 25 
Ente w for operand2 : 4 

The loduVis of 25 and 4 is : 1 

/XV 

. procedure successfully completed. 

^L> / 

nter value for operator: / 

Enter value for operandl: 45 
Enter value for operand2 : 0 



is 
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Sorry! Division Cannot Be Continued With Denominator As Zero OR NULL. 



PL/SQL procedure successfully completed. 

SQL> / 

Enter value for operator: / 

Enter value for operandl : 55 
Enter value for operand2 : NULL 

Sorry! Division Cannot Be Continued With Denominator As Zero OR^ 
PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> DECLARE 

2 V_MyNumber NUMBER := SGiveNumber; 

3 BEGIN 

IF MOD (V_MyNumber, 2) = 0 THEN 
GOTO L_EVEN; 

ELSE 

GOTO L_ODD; 

8 END IF; 

9 <<L_EVEN>> 

1 0 DBMS_OUTPUT . PUT_LINE ( ' Even Numbe 
<<L_ODD>> 

DBMS_OUTPUT . PUT_LINE ( ' Odd 

13 RETURN; ♦ 

14 END; . , . + +i. if 

15 / 



11 

12 




£V); 






Enter value for givenumb^C : it 






Odd Number. 






PL/SQL procedure srS#§^ fully completed. 





enumber: 8 



SQL> / 

Enter valu 
Even Numbe 
Odd Number. 

V &, 

PL/SQjt Hp&itffedure successfully completed. 
^r<#ty , file afiedt.buf 

rvt 

% ± U. DECLARE 

2 V_My Number NUMBER := &GiveNumber; 

3 BEGIN 

4 IF MOD (V_MyNumber, 2) = 0 THEN 
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5 GOTO L_EVEN; 

6 ELSE 

7 GOTO L_ODD; 

8 END IF; 

9 <<L_EVEN>> 

10 DBMS_OUTPUT . PUT_LINE ( ' Even Number.'); 

11 RETURN; 

12 <<L_ODD» 

13 DBMS_OUTPUT . PUT_LINE ( ' Odd Number.'); 

14 RETURN; 

15* END; 

SQL> / 

Enter value for givenumber: 6 

Even Number. 

PL/SQL procedure successfully completed. 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_MyNumber NUMBER := &GiveNumbe 

3 BEGIN 

4 IF MOD (V_MyNumber, 2) = 0 THEN 

5 DBMS_OUTPUT . PUT_LINE ( ' Even ^/B^r . ' ) ; 

6 ELSE _r p ' t, + ^ 

7 DBMS_OUTPUT . PUT_LINE ( ' ^a«^r . ' ) ; 

8 END IF; * 

9* END; 

SQL> / - 

Enter value for givenu#S|tc 
Even Number. 

PL/SQL procedure^sucogcsf ully completed. 








SQL> / 

Enter value 
Odd Numb 



number: 3 



;dure successfully completed. 
50L OFF 
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